function __test_romberg()
%Functie de test pentru algoritmul Roemberg

%	Test nr. 1

a = 0;
b = 2;
n = 5;

R = romberg(a, b, n, @fR1);
printf( "Pentru functia f1 = x*x*x + 8 * x + 3, rezultatul functiei este:\n");
disp( R);


%	Test nr. 2

a = -1;
b = 1;
n = 6;

R = romberg(a, b, n, @fR2);
printf( "Pentru functia f2 =  x * x - 6 * sin(x), rezultatul functiei este:\n");
disp( R);


%	Test nr. 3

a = -2;
b = 2;
n = 7;

R = romberg(a, b, n, @fR3);
printf( "Pentru functia f3 = x * x - 3 * cos( x * x) + 2 * x, rezultatul functiei este:\n");
disp( R);


endfunction
